#!/bin/rc
# dumpvacroots - dumps all the vac scores ever stored to the venti server
# if nothing else, this illustrates that you have to control access
# to the physical disks storing the archive!

ventihttp=`{
	echo $venti | sed 's/^[a-z]+!([0-9\.]+)![a-z0-9]+$/\1/
		s/^[a-z]+!([0-9\.]+)/\1/; s/$/:8000/'
}

hget http://$ventihttp/index |
	awk '
 		/^index=/ { blockSize = 0 + substr($3, 11) }
 		/^arena=/ { arena = substr($1, 7) }
 		/^	arena=/ {
			start = (0 + substr($5, 2)) - blockSize
			printf("venti/printarena -o %.0f %s\n", start, $3 "")
		}
	' |
	rc |
	awk '$3 == 16 { printf("vac:%s\n", $2 "") }'
